home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / grafix / misc / ami2d_2_0.lha / ami2d_dist / ami2d / rexx / caxisym.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-19  |  1014 b   |  47 lines
  1. /*
  2. @Node Header
  3. @Next Macro
  4.  
  5. Code:       caxisym.rexx
  6. Author:     Russell Leighton
  7. Revision:   8 Jul 94
  8.  
  9. Comments:
  10.  
  11. @EndNode
  12. @Node Macro
  13. */
  14.  
  15. address ami2d
  16.  
  17. 'axisym'
  18. 'problem(struct)'
  19. 'set plane strain'
  20.  
  21. /* tiso(id,E1,E2,nu12,nu23,G12) */
  22.  
  23. 'set cmu=a4*a4*a3/a2'
  24. 'set del1=1-a5-2*cmu'
  25. 'set del2=(1+a5)*del1'
  26. 'set ca=a2*(1-a5)/del1'
  27. 'set cb=a3*(1-cmu)/del2'
  28. 'set cc=a3*a4/del1'
  29. 'set cd=a3*(a5-cmu)/del2'
  30. 'alias tiso=mat(a1,1,struct,ca,cb,cb,a6,cc,cd,0.0,cc,0.0,0.0)'
  31.  
  32. 'set mang=m1'
  33. 'set epsz=cos(m1)*cos(m1)*x1+sin(m1)*sin(m1)*y2+sin(m1)*cos(m1)*(x2+y1)'
  34. 'set epsn=cos(m1)*cos(m1)*y2+sin(m1)*sin(m1)*x1-sin(m1)*cos(m1)*(x2+y1)'
  35. 'set epst=t1'
  36. 'set gamzn=2*sin(m1)*cos(m1)*(y2-x1)+(cos(m1)*cos(m1)-sin(m1)*sin(m1))*(x2+y1)'
  37.  
  38. 'set sigz=l1*epsz+l5*epsn+l8*t1+l10*gamzn'
  39. 'set sign=l5*epsz+l2*epsn+l6*t1+l9*gamzn'
  40. 'set sigt=l8*epsz+l6*epsn+l3*t1+l7*gamzn'
  41. 'set tauzn=l10*epsz+l9*epsn+l7*t1+l4*gamzn'
  42.  
  43. 'set sigf=cos(m2)*cos(m2)*sigz+sin(m2)*sin(m2)*sigt'
  44.  
  45. 'set funs=epsz epsn epst gamzn sigz sign sigt tauzn sigf mang'
  46. exit
  47.